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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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ie ALL RIGHTS RESERVED. 
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t* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ pokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONS 
!* SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: 
i Job controller. 


i ABSTRACT: 
This module contains the > ata that send a response to a calcier of 
SSNDACC, SSNDSMB, or $SNDJ 


ENVIRONMENT: | 
VAX/VMS user and kernel mode. 
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AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
i MODIFIED BY: 


V03-006 JAK0200 rye 15-Mar-1984 
Add I0$M _NORSWAIT oe ion modifier to mailbox write. 


vO3-005 MLJ0115 Martin L. Jack, 30-Jul-1983 15:01 
Changes for job settee baselevel. 


VO3-004 MLJ0114 Martin L. Jack, 23-Jun-1983 5:02 
Changes for job controller baselevel. 


v03-003 MLJ0112 Martin L. Jack, 29-Apr-1983 3:07 
Changes for job at bet E baselevel. 
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KAST; 
MBXCACM$C_PROCID 
GCBSV QUOTA) = TRUE; 


message. 
] OR ACBSM 


TPRM 
MAGECNT); 


0 
ID¢ 
ADR 
ACB 
A 
aj; 
_10S8); 


! Pointer to SRB buffer 
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TYPE); 
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- Pointer to buffered mailbox 
A 
T 


- Pointer to SRB buffer. 
- Response buffer. 


REF BBLOCK; 


-MBXCACMSW 
»-MBXCAC 


This routine creates a service response block from information in the 


mailbox message buffer, value buffers, and the response buffer. 


INPUT PARAMETERS: 
Service response block in SRB buffer. 


FUNCTIONAL DESCRIPTION: 
SRB 
IMPLICIT INPUTS: 
MBX 
RSP 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
ROUTINE VALUE: 
NONE 
NONE 
SRB 
w_TY 


N 
RBCSRB 


GLOBAL ROUTINE CREATE_SRB(SRB): 
G 
Pp 

Rat 

SRB 

(SRB 
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Service response message 


95:73 Eabactu sae Snesponse 033.1 
LIDENT \V04=000\ 
.PSECT COMMON, NOEXE, 
00000 DIAG_STORAGE_BASE: 


18-Sep-1984 
-3eo- 
14- ~tep~t She 


OVR,2 


LK 0 
00000 DIAG_TRACE: 

LK 96 
00060 DIAG_COUNT: iP 96 
000CO DIAG Funes: ‘ 
Q00C4 WORK_AREA: - - 
QOOFO SNDJBC COUNT : 132 
00174 GETQUI Saat 60 
0019C SNDACC_COUNT: 28 


LK 
001B8 SNDSMB COUNT : 
00200 DIAG nee a 


00200 FLAGS: .BLKB 
00204 IMAGE, DUMP STSFL 


.BCKB 
00208 THIS_SYSiD: 
BLKB 


0020€ “BLK 
00210 CUR_TIME: 


-BLK 

00218 HOURLY TIME : 
00220 HOURLY PARAMS : 
00234 SYMBIONT_COUNT 
00238 QUEUE REFERENCE COUNT: 
0023C MBX_MESSAGE COUNT: 
00240 MBX: -BLKB 

44 “BLKB 4 
00248 MEMORY. -FREE QUEUES: 
00270 NONAST WORK Queue: 
00278 BCB_FREE -List: 
0027¢ BCB -ACTIVE LIST: 
00280 GOQL_FREE 1ST: 
00284 GaL -ACTIVE LIST: 
00288 OPEN_GETQUI ‘LIST! 


mM © © WH FORO: N 
o ee oe) 


cer 
Ov 


a a a a 


& 
$ E Servi - - ° 
SERN 5 ret memes ones IERSCIOM CREAT WRENCH ol 


-BLKB 
0028C PROCESS bATA List: 
00290 SYMBIONT_CONTROL: 


LKB 4 

00294 SPARE AREA: | - 
002A0 REMOTE REQUEST. LKSB: 
002A8 QUEUE FILE L LKSB: . 
00280 QUuEUE_LOCK LKB: : 
00288 RSP -BLKB 8 
002C0 JBC ~PRIORITY: s 
0024 JBC_PRIVILEGES: | 

BLK 8 
002CC JBC_QUOTAS: 

-BLKB 66 
0030 -BLKB 2 
00310 JBC_UIC:.BLKB 4 
00314 QUEDE_FAB: 

.BLKB 80 
00364 QUEUE_RAB: a 
003A8 QUEUE_NAM: 

.B 96 
00408 QUEUE_XAB: 

.BLKB 88 
00460 QUEUE_RSA: 

.BLKB 255 
0055F “BLKB 1 
00560 QUEUE_ALG: ‘ 
00564 QUEUE_MBF : 

-BLKB 1 
00565 -BLKB 3 
00568 ACCOUNTING FABS: 
00570 ACCOUNTING RABS: | 
00578 ACCOUNT_FAB A: w 
005C8 ACCOUNT_RAB A: * 
0060C ACCOUNT_NAM A: a 
0066C ACCOUNT_RSA A: 

-BLRB 255 

0768 .BLKB) 
076C ACCOUNT _F AB B: ve 

0078C ACCOUNT _RAB B: - 
00800 ACCOUNT_NAM B: 


voo-000 


Service response message 


D 
1b-sep-19 
14-Sep-1984 


00860 


O95F 
0960 


00980 
009F4 
009F8 
00A00 
00E00 
00E00 
00E20 
00E20 
00E26 
QOE2A 
00E32 
00E33 
00E 34 
OOE3A 
00E44 
00E45 
00E4B 
OOESC 
00E5C 
00E62 
00E68 
O0E6C 
00E70 
00E78 
OOE7E 
00E82 


ACCOUNT_RSA_B: 
~BLRB 255 
-BLKB 1 
DIAG_FAB: 
-BLKB 80 
DIAG_RAB 
-BLKB 68 
MBX_CHAN 


MBX BUFFER: 

VALUE _ STORAGE “BASES 

ITEM, PRESENT. ' 
-BLKB 32 

VALUE -GETQUI BASE: 

VALUE -ACCOUNTING MESSAGE : 

VALUE _ACEGUNT ING TYPES: 

VALUE ait TIME : 

VALUE _ALIGNMENT PAGES: 

VALUE_BASE PRIORITY: 

VALUE_BATCH_ INPUT: 

VALUE_BATCH OUTPUT: 

VALUE _BUFFER_COUNT: 

VALUE _CHARACTERISTIC_NAME : 

VALUE_CHARACTERISTIC_NUMBER: 

VALUE_CHARACTERISTICS: 

VALUE CHECKPOINT DATA: 

VALUE_CLi: i 

VALUE _cPU DEFAULT: 

VALUE _CPU LIMIT: 

VALUE _DESTINATION QUEUE : 

VALUE DEVICE NAME : 

VALUE_ENTRY_NUMBER: 

VALUE ENTRY, HunBER OUTPUT 


Be 95:95:78 = EaBacte sae inesponge 2035.1 
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QOOE8C VALUE_EXTEND QUANTITY: 


~BLK 
OOE8E VALUE FIle tls 
QOESF VALUE FILE. a 


1 
oe 


OOEB3 VALUE “FIie Oe TUP MODULES: 


00EB9 VALUE “Fie SPECI 
OOEBF VALUE. Flee PAGE : 
OOEC3 VALUE Foi DESCR 
OOEC9 VALUE_FORM_LENGT 
OOECA VALUE _F ORM MARGI 
OOECB VALUE -FORR JMARG! 
OOECD VALUE_FORM MARG! 
OOECF VALUE “FORRR MARG! 
OOEDO VALUE “Foi NAME : 
OOED6 VALUE_FORM_NUMBE 
OOEDA VALUE “FOR 

OOEE2 VALUE “Foi SETUP 
OOEE8 VALUE FoR Stock: 
OOEEE VALUE -FORR WIDTH: 
QOEFO VALUE_GENERIC_TA 
012D4 VALUE “J08 COPIES: 
01205 VALUE _JOB LIMIT: 
012D6 VALUE _JOB_NAME : 
012DC VALUE_JOB RESET 
012E2 VALUE_JOB SIZE _M 


FICATION: 


IPTION: 

H: 
N_BOTTOM: 
N LEFT: 
K RIGHT: 
N_TOP: 

1~ 


MODULES: 


GET: 


R: 
4 
8 
6 
6 
2 
R 
996 
1 
1 


ae 
AX IMUM: 


. L 
012E6 VALUE_JOB SIZE AMIR: 


QO12EA VALUE _J0B STATUS 
012F4 VALUE “LAST PAGE 

012-8 VALUE LIBRARY. SP 
Q12FE VALUE _LOG_QUEUE : 


iti 


ECIFICATION: 


Page 


9 
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vOL~O00" ee ee Ie sep-198 19:95:78 UNdacte sre Sne sponse 633; 1 Pace ot 
-BLKB 8 
01306 VALUE_LOG SPECIFICATION: 
0130C VALUE ANOiE® 
01312 VALUE -OPERATOR_ REQUEST: 
01318 VALUE_OWNER UIC: 
0131C VALUE “page SETUP 
01322 VALUE _PARARETER_ 
01328 VALUE_PARAMETER_ 
0132E VALUE _PARARETER_ 
01334 VALUE PARAMETER. 
0133A VALUE_PARAMETER_ 
01340 VALUE “PARAMETER. 
01346 VALUE "PARAMETER. 
0134C VALUE “PARANETER. 
01352 VALUE _prignity: 
01353 VALUE _PROCESSOR: 
01359 VALUE _PRaTECT 10N 
0135D VALUE -0uEUe: 
01363 VALUE_QUEUE FILE SPECIFICATION: 
01369 VALUE “Rec AT IVE _PAGE: 
0136D VALUE “RESEANED INPUT_1: 
0136E VALUE “RESERVED. INPUT. 2: 
01370 VALUE -RESERVED_ INPUT _ 3: 
01374 VALUE_RESERVED_INPUT_4: 
0137A VALUE -RESERVED -OUTPUT_1: 
01384 VALUE RESERVED OUTPUT _2: 
0138E VALUE SEARCH STRING: 
01394 VALUE -SC3NODE. NAME : 
0139A VALUE_WSDEF AULT: 
-BLKB 2 


MODULES: 


ern aD oO = POO NOOO ROWE 04 “oO ao fo 


SETI Sorven coree seen IEiceiats | EU TEEEET, 


0139¢ VALUE WSEXTENT: 
0139€ VALUE _WSQUOTA: 
013A0 VALUE STORAGE _END 
OSEOUT= 
SAKRNL = 


CL 

“NO 
“NOOPER= 
“OPENIN 
“oP 

“RE 

“WR 


‘woozzzo 


EXTRN EXESALLOCBUF, EXESEPID_TO_IPID 
-EXTRN EXESJBCRSP, SCHSOAST 


-PSECT CODE,NOWRT,2 


003¢ 00000 .ENTRY CREATE_SRB, Save R2,R3,R4,R5 : 1177) 
53 00000000" EF 9 90002 MOVAB MBX, R3 : 
50 04 ac D0 00009 MOVL SRB, RO ; 1211 
52 63 D0 0000D MOVL MBX. R2 ; | 
60 62 0 00010 MOVL (Res, (RO) ; 
04 AO 78 A DO 0001 MOVL RSP, 4(RO) 3; 1213. 
08 Ad 04 00018 CLRL = 8 (RO) t 1214) 
51 0C AO 9E 90018 MOVAB 12(RO), R1 + 1215) 
61 7C OOOTF CLRQ (R1) s | 
08 Al Hs: BO 00021 MOVW #46, 8(R1) + 1217) 
OA Al 90 00025 MOVB #2, 10(R1) : 1218 
OB AI 25 a2 80 8F 89 00029 BISB3 #128, 37(R2), 11(R1) > 1219 
5 FC A2 DO 00030 MOVL =4(R2), RO : 1220 
000000006 00 16 00034 JSB EXESEPID TO_IPID : 
0c Al 5 DO OO03A MOVL RO, 12(RT) é 
50 63 DO 0003E MOVL MBX, RO > 1221 
10 «Al 50 Ad 00 00041 MOVL 80(RO), 16(R1) ; 
05 13 00046 BEQL 1$ + 1222 
0B OAT 40 8 88 00048 BISB2 #64, 11(R1) ; 
14 «AI 54 AO DO 00040 1$: MOVL  84(RO), 20(R1) : 1225 
18 A1 000000006 00 9€ 80092 MOVAB EXESJBCRSP, 24(R1) + 1224 
1c Al 44 AO 7D QOOSA MOVOQ 68(RO), qrre 5 \$$3 
24 =O 4C AO DO 0005F MOVL  76(RO). 36(R1) : 1227 
38 Al 04 00064 CLRL = 40(R1) : 1228 
ee BA 0067 CLRW = 44(R1) : 1 $9 
4 0006A RET + 1230 


| 
| 
; Routine Size: 107 bytes, Routine Base: CODE + 0000 


H 4 
RES E Service response message 16-Sep-1984 00:22:5 AX-11 Bliss-32 V4.0-74 
Wee 500 , ° 18-808- 1382 90:95:78 JOBCTL. SRC IRE SPONSE .B3 31 


GLOBAL ROUTINE LOCATE _SRB_OUTPUT_ITEM(SRB,CODE ,USER_DESC)= 
1+¢ 


i FUNCTIONAL DESCRIPTION: 
This routine locates storage for an output value item in a 
service response block. 


INPUT PARAMETERS: 
SRB - Pointer to SRB buffer. 


CODE = SGETQUI or SSNDJBC output value item code. 
USER_DESC - Structure describing user's return buffer. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
SRB buffer updated. 


ROUTINE VALUE: 
Pointer to data storage, or 0 if item should not be stored. 


SIDE EFFECTS: 
NONE 


SRB: REF BBLOCK, ' Pointer to SRB buffer 

USER_DESC: REF BBLOCK; ! Pointer to output item descriptor 
ACB: REF BBLOCK, ' Pointer to ACB 

ACI: REF BBLOCK; ! Pointer to extended ACB output item 


SALAS LS SHNEARANLSSHVS ARAVA OSRURAR AVIS SOLER 


IF (.SRBCSRB_W_ TYPE) 45) MSG$_SNDJBC OR .SRBCSRB_W_TYPE] EQL MSG$_GETQUI) 
AnD LTER_PRESENTC. CODE 


BEGIN 
ACB = SRBCSRB_T ace); 
ACI = .ACB + ACB AcBsu_si 
ACBCACB_W_ITEMCOUNT) = [AC 
= ,USER DE 

R 

R 


> 


OUNT] + 1; 
}: 


Wr Oo 0e@n 
zo 
ao 
~ 


_POINTER); 
“LENPOINTER; 
ELSE 

0 
END; 


me ed ed wd dd od od = 


POPOPININYININYNDNNPYNINIPYNIPYPININIPI PINS PY PIPPIN PONPoPoNnony 


CD OD SIN NN SSS NSS DAA AAA AO MITT BB BB BB BE BE EWA 
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RII NWI AINA AIAN CIPI PI PIDIPINDIDIDD 8 2 ot 0 SS SS SS 
= @ 
o sm 
oO wo 
> ts 
rc 2 


Dekh al et eek eb oh ed 


DNS 


»@ 
[eal 
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| 4 
+ eel te Service response message 1b-sep-19 AX-11 Bliss-32 V4.0-74 Page ; 


Ve-Sep=1984 19:39:13 — Lidacte sRe sRESPONSE 0351 d | 


0000 .ENTRY LOCATE_SRB_OUTPUT_ITEM, Save nothin : 1231) 
OF 04 BC i : CHP aSRB, #15 ~ : . : 1370 
10 04 BC é : cHPW SRB, #16 : 
18 00000000" EF 08 AC ef Of 1$: BBC CODE, ITEM_PRESENT, 2$ | 71 
51 4 A o¢ 4 1 ADDL3 #12, SRB, ACB + 1276 | 
08 A 1 MOVZWL 8(ACB), ACI + 1275 
51 ¢ ADDL2 Ace atl ; 
¢ Al OB INCW  44(ACB) +1 2 
1 ¢ aC é MOV USER. DESC R1 : 127 
0 61 3¢ A MOVZWL (R1)> (ACI)¢ : 
02 Al 70 D MOVQ 2(R15, (ACI)+ : 1279 
04 1 RET + 1281 
50 p4 032 2% CLRL = RO + 1270 
4 000 RET + 1285 


; Routine Size: 53 bytes, Routine Base: CODE + 0068 
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RES E Service response message tb-se Sep-1984 :5 AX-11 Bliss-32 V4.0-74 Pa 14, 
yO2-000 4 . =3007 1382 99: 5: 3 JOBCTL.SR REIRESPONEE 268951 ” (5) 
GLOBAL ROUTINE COMPLETE_SRB_OUTPUT_ITEM(SRB,VALUE_LENGTH): NOVALUE= 


oe 


FUNCTIONAL DESCRIPTION: 
This routine completes the modifications required to append an output 


value item to a service response block. 
INPUT PARAMETERS: 
& - Pointer to SRB buffer. 
VALUE _LENGTH - Length of item value. 


IMPLICIT INPUTS: 
NONE 


BUSTERS See Aro 


IMPLICIT OUTPUTS: 
SRB buffer updated. 


ROUT INE come 


oo 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 

i 

i 

i 

i 

i 

i 

SIDE oreeeeet 
ONE 
le 

x 

REF BBLOCK; ! Pointer to SRB buffer 


: REF BBLOCK, ' Pointer to ACB 
ACI: REF BBLOCK; ' Pointer to extended ACB output item 


LOCAL 


mororor 


BV LSSS VERA ASS SAIS AR 


: Locate the ACB and the output item, and update the length information. 


Ace = SRBCSRB_ T_ACB) 
ACI = .AC ATBCACBSW_ SIZE): 

Ace ACBSW °s126) = ACBEKC B$W_S1ZE] + SBYTEOFFSET(ACI_T_DATA) + .VALUE_LENGTH; 

ACICACI y “DATASIZE) = .VALUE-LENGTH; 


Be Ge Be Se Se Se Be Se Se Be Se Ge Se Se Ge Se Gs Oe Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Ge Se Se Ge Ge Se Se Se eee 
ANNO 
_ 
ee ee 


WAAL AAAIAAI Aw 


RIMIPIPINPINOPYININID 9 2 OOO OS SS CDOOOOOCOCOCO woowowowowowovno 


=PIPIPIMPIPIMIPIPINIPINPININIAY at at wt st st st tt st st tt tt ot a 


0004 00000 ENTRY COMPLETE _SRB_OUTPUT_ITEM, Save R2 : 1286 
50 04 =A 0c c 00 ADDL3 = #12 A : 1 $5 
5 08 ad 3¢ 0000 MOVZWL BCA ta). ats > 1326 
5 30 ¢0 0B ADDL2 ACB, ACI ; 
1 08 A ¢ MOVZWL 8(ACB), R1 : 1327 
1 ac C 1 ADDL ¢ VALUE, FENGTH THe at : 
08 a0 1 OC Ai 0001 ADDW : 
02 A2 08 AC BO 0001B MOVW VALUE atin BF aC) : 1328 


voe-000" se tacd -sarcnens fleet Fata y 99:95:38 UaSacTu Ske Se Spunse 039; 1 ne 
04 00020 RET ; 1329 
; Routine Size: 33 bytes, Routine Base: CODE + OOA0 


Service response message 18-Sep-1984 90:95:36 et a oe ee 


14-Sep-1984 JOBCTL.S 


Voee 


~o 
uw 


ROUTINE SEND_SERVICE_RESPONSE_KERNEL= 
+ 
FUNCTIONAL DESCRIPTION: 

This routine is used by SEND_SERVICE_RESPONSE_MESSAGE to allocate an 
extended AST control block from nonpseee pool and queue a specia 
kernel AST to a caller of SGETQUI or SSNDJBC. It executes in kernel 
mode and partially at IPLS_ASTDEL. 


INPUT PARAMETERS: 
AP - Pointer to prototype ACB. 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
Special kernel AST queued to requesting process. 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


i QUTPUT PARAMETERS: 
! NONE 

4 

le 


SIDS DD. DD DOD DAD TTT BB BB BB EB AWA 


CALA ALA AA POROPUPOPURUPURUPURI — 2 2 2 3 2 3 3 3 BOOOOOOOOOODOD 
SERFUNASSoNOnse wo SOMnNe nr woe ue nRoeo oS ae ue 


AAAI AINA AIA AAAI WW 


IN 

AP; 
MAP 

AP: REF BBLOCK; ! Pointer to prototype ACB 

CB: REF BBLOCK, ! Pointer to AST control block 

STATUS; ' Status return 
' Allocate the ACB from nonpaged pool. If successful, the routine returns at 
IPL$_ASTDEL. 
STATUS = EXESALLOCBUF(.APLACBSW_SIZEJ; ACB); 
ah 


Initialize the ACB. 
CHSMOVE(.APCACB$W_SIZE], .AP, .ACB); 


Ft oe et et et et ek ek bd 


! Queue the special kernel AST to the requesting rocess. If the process 
no longer exists, the ACB is deallocated by SCHSQAST. 


SCHSQAST(O, .ACB); 


ee ee a a ee a a ee ee ee a ee ee a a dd 
WANNA AAAI AWWA AAA AANA AAA AAAI WIAA WANA AANA NNN 


AUOFWR OO OONOAUS WN SO OONO UNE WIN — O OONOU EWN OOONO UE ARO OONOUE WO 


WNAIAININIWI NINA IRI PRIMPIPPYNINIPINPINPIPIPINIPINIR) 2 2 = tt SS tt 
= 
oO 
oO 
a 


Be Be Be Be Be Se Se Be Se Be Se Se Be Se Se we Se Se Se Se Be Ge Se Ge Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se eee 


ee ee hah ah ah ah aah tah tah tah tab vtbutel 
—COBNOUESWN—-0O0O®@ 
DODO nooe NYS 


Wns 


; Routine Size: 44 bytes, Routine Base: CODE + 00C1 


M 4 
RES E Service response message 16-Sep-1984 00:22:5 AX-11 Bliss-32 V4.0-74 Page 17 
tae tid ° 1o=8e8- 1382 00:45:38 JOBCTL. SRCIR ee ptnse 53551 . (6). 
; ; 1387 | 
; 1 
3 2 : : Lower IPL. 
7 . eo L Py 
1391 MTIPR(ZREF(O), PRS_IPL) 
3 1 35 END; 
; 26 i 8 | 
3 r$ : 2 } Return status. 
3 oe 1 38 » STATUS 
3 1398 END; 
OOFC 00000 SEND_SERVICE_ RESPONSE KERNEL: 
-WORB Save R2,R3,R4,R5,R6,R7 3 1330 
51 08 aC 3C 00002 MOVZWL BC(AP), : 1373 
000000006 00 16 00006 JSB EXESACL OCBUF ; 
57 50 DO 0000C MOVL Rg. STATUS ; 
56 2$ DO O000F MOVL 3 
13 57 €9 00012 BLBC STATUS + 1374 
66 6C 08 AC 28 0001 mMovCc3 Sap) “Mb. (ACB) ; 1380 
55 56 DO OOO1A MOVL ACB, R5 > 1386 
50 04 0001D CLAL 3 
00000000G 00 16 OOOTF JSB SCHSQAST 3 
12 00 DA 00025 MTPR #0, # 3: 1391 
50 57 DO 00028 1$: MOVL STATUS, RO 3; 1398 
04 00028 RET 3 


N 4 
RESPONSE Service response message 16-Sep-1984 00:22:5 AX-11 Bliss-32 V4. 
v04-000 “ ° 122 308= 1 Re 90:95:78 JOBCTL.SRCIRESPONS 


; 6} 1798 ! GLOBAL ROUTINE SEND_SERVICE_RESPONSE _MESSAGE(SRB,STS): NOVALUE= 

: 369 120) | tes 

; 368 1436 ss 
; 369 14 1 ! FUNCTIONAL DESCRIPTION: 
; 370 1404 1! This routine sends a response message to a caller of $GETQUI, SSNDSMB, 

s Sr} 1405 1! $SNDACC, or SSNDJBC. 

3 ie; Jens 1! 
5 3 108 1 ! INPUT PARAMETERS: 
; 374 1408 1! SRB - Service response block. 
3 33? et : STS - Request completion status. 
: 375 121) 1 i IMPLICIT INPUTS: | 
; 378 lg 1! NONE 

; 379 1415 1! 

; 80 1414 1 ! OUTPUT PARAMETERS: 

: 381 1415 1: NONE 
; 206 1416 1! 

; Hs 1417 1°! IMPLICIT OUTPUTS: 

: 384 1418 1! NONE 

; 385 1419 1! 

; 386 1420 1 ! ROUTINE VALUE: 
; 387 1421 1! NONE 
; 388 14 é 1 | 
; 389 14 1 ! SIDE EFFECTS: 

; toy 1? ¢ : Message written to mailbox, or special kernel AST queued to process. | 
3 4 1426 1 !-- 

; 39 1427 1 

; 394 1428 BEGIN 

; 395 1663 MAP ; 

; 396 1430 SRB: REF BBLOCK; ! Service response block | 
; 397 1431 
; 398 1438 é 
; 399 143 IF .SRBCSRB_W_TYPE] EQL MSG$_SNDACC | 
: 400 1434 2 OR .SRBLSRB-W-TYPE] EQL MSG$~SNDSMB 

3; 401 1435 THEN 
; 40 1436 BEGIN 

; 40 1437 OCA | 
; 404 1438 DEVICE_DESC VECTOR(2), ' Descriptor for device name 

; 405 1439 3 DEVICE BUFFER: VECTORC10,BYTE),! Buffer for device name. 
3; 406 1440 CHANNEL : WORD, ' Channel assigned to mailbox 
; 407 1441 STATUS; ' Status return | 
; 408 1606 

; 409 144 : } 

3 oi9 ieee If the unit number is zero, exit quietly. 

5 tig 1446 IF .SRBCSRB_W_MAILBOX] NEQ 0 
3; (41 1447 THE 

3; 6414 1448 4 BEGIN 

3 6415 1449 4 

3 $19 1eey ? Set up the device name as ‘'_MBAu:"’. 

; 418 1436 4 DEVICE _DEStto) = ZALLOCATION(DEVICE_BUFFER); 

: 4419 1453 4 DEVICE_DESCC1J = DEVICE_BUFFER; 

; 420 P 1454 4 $F A0( 
; 621 P1455 4 SDESCRIPTOR(* MBA!UW:'), 


ee — - — ae a , 


5 
Service response message Bese 
14-Se 


ere enae 1384 00:06:36 AX-11 a V4.0-74 Page VOe 


1 
JOBCTL.SRCJRESPONSE .B32;1 (7 


e. ; P 14 $ 4 DEVICE_DESC, 

; 4 P 14 4 OEyare DESC, 

> 424 14 3 4 - SRBCSRB_W_MAILBOX)); 

; 425 1459 4 

; 4 $ 1460 4 
: : 4 1*9) ? Assign a channel to the mailbox. 
; 429 1288 5 IF SASSIGN(DEVNAM=DEVICE_DESC, CHAN=CHANNEL) 
; 430 1464 & THEN 

; 43) 1465 2 BEGIN 

; 4 ¢ 1666 

; i34 140! 5 : Set the completion status into the message buffer. 
; 435 1469 : BBLOCKCSRBCSRB_Q_RSPJ, RSP_L_STATUS] = .STS; | 
; 436 1470 é 
3; 437 1471 : 
; 438 Ware 5 ! Write the message without waiting. 
; 439 147 é ! 
; 440 P 1474 STATUS = $010( 

3; 441 P 1475 5 FUNC=]O$_WRITEVBLK OR IOSM_NOW OR IOSM_NORSWAIT, 
; 644 P 1476 5 CHAN=. CHANNEL, 
3 64 P 1477 : P1=SRBCSRB_Q RSP], 
: 444 1478 P2=SRB_S_RSPJ; 
3; 445 1479 § IF NOT .STATOS 

3; 446 1480 5 THEN SIGNAL(JBC$_WRIRSPMSG OR STSSK_ERROR, 0, .STATUS); 

3 4467 1481 5 

> 448 148@ 5 

> 449 1483 5 ! Deassign the channel. 

; 450 1484 5§ ! 
> 451 1485 5 SDASSGN(CHAN=. CHANNEL); 

; 62g 1486 4 END; 

: 45 1487 3 END; | 
; 454 1488 END 

3; 455 1489 ELSE 

; 456 1490 BEGIN 

3; 457 1491 LOCAL 
; 458 1498 STATUS; 
; 459 149 

; 460 1494 é 
3 “) ys Set the completion status into the ACB. 
; £63 1299 BBLOCKCSRBCSRB_T_ACB], ACB_L_STATUS] = .STS; 

: 464 1498 
; 465 1499 

: 666 1500 ' Send the completion. 

: 467 1501 : 

; 468 P 1208 STATUS = SCMKRNL( 

; 469 P 150 ROUTIN=SEND_SERVICE_ RESPONSE _KERNEL, 

> 470 1304 ARGLST=SRBCSRB_T_ACBJ); 

3; 471 1505 IF NOT .STATUS 

; 67 1208 THEN 

; 47 150 SIGNAL (JBC$_WRIRSPMSG OR STSSK_ERROR, 0, .STATUS); 

: 674 1508 END; 

: 475 1509 END; 


5 
S E Service response message bes p-1 75 AXx-11 B =32 v4.0-74 P 0 
Ben 000 : ° 1ergee= 188s 99:85:7§ = Eabac te sae ineseonge 2085.1 age 6 
3A 57 55 21 41 462 4D SF oor P.AAB: ty }- \_MBA! UW: \ : 
444 OOF8 P.AAA: .LONG 8 3 
00000000" OO0FC ADDRESS P.AAB 3 


-EXTRN SYSSFAO, SYSSASSIGN 


-EXTRN SYS$Q10, SYSSDASSGN 
"EXTRN SYSSCMKRNL 
000¢ 00000 .ENTRY SEND SERVICE RESPONSE_MESSAGE, Save R2,R3 ; 1399 
53 000000006 00 9 90002 MOVA L1BsSi¢ , RS : | 
18 C2 0000 SUBL2 #24, : 
04 aC 00 0000C MOVL SRB oY + 1433 
0A 62 81 0001 CMPW (R25, #10 : 
05 13 0001 BEQL =«*1$ : 
04 62 B81 0001 CMPW 3S s(R2), #4 + 1434 
74 if 00018 BNEQ 4$ : 
02 A2 B85 OOO1A 18: TSTW © 2¢R2) + 1446 
01 12 0001D BNEQ 2$ ; 
04 0001F RET : | 
10 AE 0A DO 90020 2$: MOVL #10, DEVICE_D : 1458 
14 AE 04 AE 9E 00024 MOVAB DEVICE_BUFFER, DEVICE_DESC+4 : 1453) 
7E 02 A2 3C 00029 MOVZWL 2(R2), ~=(SP) > 1458) 
14 AE OF 900¢D PUSHAB DEVICE_DESC : 
18 AE 9F 00030 PUSHAB DEVICE-DESC F 
C2 AF 9F 00033 PUSHAB  P.AAA : | 
000000006 00 04 FB 00036 CALLS #4 ppVSSFAO ; 
7E 7C 0003D CLRO 0 = (§P > 1463. 
08 AE 9F 0003F PUSHAB CHANNEL, : | 
1C AE 9F 00042 PUSHAB DEVI : | 
000000006 00 04 FB 00045 CALLS #4, SYSEASSIGN : 
62 50 €9 0004C BLBC RO $ ; | 
08 A2 08 AC DO 0004F MOVL STS, 8(R2) + 1469 
7E 7C 00054 CLRO = = (SP) + 1478 
7E 7C 00056 CLRO-—_ = (SP) : 
08 DD 00058 PUSHL #8 : 
04 A2 9F OOO5A PUSHAB 4(R2) F 
7E 7¢ 0005D CLRQ ss =(SP) : 
7E b4 0005F RL = =(SP) : 
7E 0470 8F 3¢ 90061 MOVZ2WL #1136, -(SP) : | 
7E 28 AE 3C 00066 MOVZWL CHANNEL, -(SP) : 
7E D4 0006A CLRL = (SP) : 
000000006 00 0c Fe 9006¢ CALLS #12, SYS$QI0 ; 
0D 20 E8 0007 BLBS STATUS, 3$ > 1479 | 
0 DD 00076 PUSHL STATUS + 1480 
7E 04 00078 CLRL 3 
00048472 8F DD OOO7A PUSHL 42360 ; 
63 03 FB 9080 CALLS @# OPO SSIGNAL : | 
7E 6— 3C 00083 38: MOVZWL ch ANNEL, =(SP) : 1485 
000000006 00 01 FB 00 CALLS | SYS$DASSGN paoee 
34 A2 08 ac 00 O08 4$: MOVL STS, 52(R2) > 1497 | 
0¢ A2 9F 0009 PUSHAB i2the) > 1504 | 
FF CF OF 0096 PUSHAB SEND SERVICE at SPONSE _KERNEL ; | 
000000006 00 : FB O9A CALLS SYS$ : 
0D E8 OO0A1 LBS stirus. : 1505. 
0 DD 0004 PUSHL > 1507. 


voe-008" 


; Routine Size: 


Service response message 


iBrseoctgee 99:28:88 YARGIT OLingasz,ve.0-742 


CLRL 


7E D4 ‘6 35860 
00048472 a DOD PUSHL " 6050 
63 3 FB at CALLS #5, LIBSSIGNAL 
04 00081 5$: RET 


178 bytes, Routine Base: CODE + 0100 


reas 3 


+ 1509. 
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NORON) 
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ee ee ee ee ee ee ee ee eee 
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DPV BS BS BS BB EE EE AAAI ANIA PIPINPIPONINDYN 2 OO Oe 
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5 
1b-Se0-1986 09:22:59 
GLOBAL ROUTINE SEND_SERVICE_RESPONSE: NOVALUE= 


lee 


' 
aaah 7 DESCRIPTION: 


response message 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
See CREATE_SRB. 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Response returned to caller. 


BEGIN 
LOCAL 
SRB: BBLOCKCSRB_S_BUFFER); 


IF_.RSPCRSP_L_STATUS] NEQ 0 
THEN 


us) 
K10S), stsév FAC_NO} EQL 0 


bast 
THEN BBLOCKCRSPCRSP_L_STATUSJ, STSS0_FAC_NOJ = JBC$_FACILITY; 


CREATE_SRB(SRB) ; 
SEND_SERVICE_RESPONSE_MESSAGE (SRB, -RSPLRSP_L_STATUS)); 


0004 00000 ENTRY 

52 00000000" EF 9E BR0g OVAB 

3 BB AE 9E 0000 MOVAB 
5 D BOtD MOVL 
1 B15 BEQL 
05 0 €8 0001 BLBS 


his routine finishes processing for the $GETQUI, SSNDSMB, SSNDACC, 
and S$SNDJBC services by sending a response message if appropriate. 


! Service response block 


STS$V_SEVERITY] = STSSK_ERROR; 


SEND SERVICE_RESPONSE, Save R2 
-72(SP) 
RSP+4, 
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RO, 1$ 


F 5 

RESPONSE Service response message 16-Sep-1984 00:22:5 AX-11 Bliss-32 V4.0-74 Page 23 
yO -000 14-Se eats vi 00°95:7 i JOBCTL.SRCJRESPONSE .B32;1 . Bs 
62 03 00 0g FO 00015 INSV #0, #3, RSP+4 3 1547 

OFFF BF 02 Ae 8 OOtA 1$: BITy nshe 6, #4095 : 1548 

02 A2 0c 00 Be F 88 ; INSV #4, #0, #12, RSP+6 ; 1549 

E 0D 00028 2$ PUSH P ; 1552 

FEIF CF 01 FB QO02A CALL #1, CREATE_SRB F 

62 DD 000eF PUSHL RSP+4 : 1553 

04 AE 9F 00031 PUSHAB SRB 3 
FFIS CF 0 FB 000 CALLS #2, SEND_SERVICE_RESPONSE_MESSAGE : 
04 00039 3$: RET 3; 1555) 


; Routine Size: 58 bytes, Routine Base: CODE + 0182 


Service response message 


; 388 1887 0 ELuDon 


; PSECT SUMMARY 
; Name Bytes 

$ COMMON 5024 NOVEC, WRT, RD ,NOEXE,NOSHR, 
> CODE 492 NOVEC.NOWRT. 

3 Library Statistics 

; oo------ Symbol 

: File Total Loaded 

> _$255$DUA28:CSYSLIBILIB.L32;1 18619 67 

: COMMAND QUALIFIERS 


473 code + 5043 data bytes 
Time: 17. 


3; Run 

3; Elapsed Time: 0:38: 

3; Lines/CPU Min: 4 

3 Lovenes/COUHie: 50427 
3 Y Used: 247 pages 
3 on ation Complete 


sR 00:03: 


} 


~-EXTRN LIBSSIGNAL 


; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RESPONSE/OBJ=OBJ$:RESPONSE MSRC$:RESPONSE/UPDATE=(ENH$: RESPONSE ) 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


194 AH BTLaA. SE 


